﻿''' <summary>
''' 账套编辑时用类，主要用来保存账套编辑时的状态和内容
''' 包括同步账套的信息和用户使用情况
''' </summary>
Public Class ClsLedgerEditor

    Private m_LedgerClass As ClsLedger '用来保存账套信息
    Private m_IfOpened As Boolean '用来保存账套是否已启用
    Private m_IfHaveVoucher As Boolean '用来保存账套是否已输入凭证，已输入凭证的账套是不可以删除的
    'Private m_UserList As List(Of ClsUser) '用来保存账套相关管理用户列表
    Private m_UserIdS As List(Of Int32) '用来存放管理用户的编号列表

    Public Property LedgerClass As ClsLedger
        Get
            Return m_LedgerClass
        End Get
        Set(value As ClsLedger)
            m_LedgerClass = value
        End Set
    End Property

    Public Property IfOpened As Boolean
        Get
            Return m_IfOpened
        End Get
        Set(value As Boolean)
            m_IfOpened = value
        End Set
    End Property

    Public Property IfHaveVoucher As Boolean
        Get
            Return m_IfHaveVoucher
        End Get
        Set(value As Boolean)
            m_IfHaveVoucher = value
        End Set
    End Property

    'Public Property UserList As List(Of ClsUser)
    '    Get
    '        Return m_UserList
    '    End Get
    '    Set(value As List(Of ClsUser))
    '        m_UserList = value
    '    End Set
    'End Property

    Public Property UserIdS As List(Of Integer)
        Get
            Return m_UserIdS
        End Get
        Set(value As List(Of Integer))
            m_UserIdS = value
        End Set
    End Property
End Class
